0 REMSAVE"ORDER BLANK-PR",8
50 FORX=0TO39:L$=L$+"[164]":NEXT
52 DD$=L$
60 :
100 PRINT"[147][217]OU MAY LOOK AT [204]OADSTAR ORDERING "
102 PRINT"INFORMATION ON THE SCREEN OR THE  "
104 PRINT"PRINTER.":PRINT
200 PRINT" [201]F YOU CHOOSE PRINTER, YOUR PRINTER"
202 PRINT"WILL PRINT AN ORDER FORM.":PRINT:PRINT
300 PRINT"[211]CREEN OR [208]RINTER (S/P)":POKE198,0:WAIT198,1:GETZ$
400 IFZ$<>"S"ANDZ$<>"P"THEN300
500 IFZ$="S"THEN5500
1050 PRINT"[147][208]LEASE TURN YOUR PRINTER ON AND PUT"
1052 PRINT"THE PAPER AT THE TOP OF A PAGE."
1054 PRINT:PRINT"[208]RESS A KEY WHEN YOU ARE READY TO PRINT.":POKE198,0:WAIT198,1
1100 OPEN4,4,7:CMD4
1200 PRINT"                             [204][207][193][196][211][212][193][210]"
1300 PRINT"                          [208].[207]. [194]OX 30007"
1400 PRINT"                     [211]HREVEPORT [204][193]  71130-0007":PRINT
1500 PRINT"         [207][210][196][197][210][160][198][207][210][205][160]- [204][207][193][196][211][212][193][210] #12"
1600 PRINT
1700 READA$:IFA$="END"THEN1950
1800 PRINTA$
1900 GOTO1700
1950 :
1960 :
2000 PRINT"[206]AME            :"DD$:PRINT
2100 PRINT"[193]DDRESS         :"DD$:PRINT
2200 PRINT"[195]ITY/[211]TATE/[218]IP  :"DD$:PRINT
2400 PRINT
2402 PRINT"        [198]OR DISKETTE ORDERS, USE YOUR [213][208][211] DELIVERY ADDRESS."
2500 PRINT"                 [193][204][204] [208][210][201][195][197][211][160][201][206][195][204][213][196][197][160][211][200][201][208][208][201][206][199][160][195][200][193][210][199][197][211]"
2600 PRINT:PRINT:PRINT:PRINT#4:CLOSE4
2700 GOTO7900
2800 DATA" [193] NEW ISSUE OF [204][207][193][196][211][212][193][210] IS PUBLISHED EVERY MONTH.  [200]OWEVER, [204][207][193][196][211][212][193][210]
2900 [131]"DOES NOT BECOME DATED MATERIAL.  (null)HE PROGRAMS ON (null)(null)ATNSTR$(null)(null)ATN(null) HAVE PERMANENT
3000 DATA"VALUE.  [217]OU WILL WANT THE COMPLETE [204][207][193][196][211][212][193][210] COLLECTION.  [193]LL PAST ISSUES
3100 [131]"STARTING WITH NUMBER 1 ARE STILL AVAILABLE FOR $9.95 EACH."
3200 [131]" (null)RDER THREE OR MORE AND TAKE ONE DOLLAR OFF EACH ISSUE.  (null)RDER SIX OR
3300 DATA"MORE AND TAKE TWO DOLLARS OFF EACH ISSUE.",
3400 DATA" [211]END ME THE FOLLOWING ISSUE NUMBERS [164][164][164] , [164][164][164] , [164][164][164] , [164][164][164] , [164][164][164] , [164][164][164] ,"
3500 DATA"[164][164][164] , [164][164][164] AT  $[164][164][164][164][164][164] EACH."
3600 DATA" "
3700 DATA"[211][213][194]-[212][207][212][193][204]: $[164][164][164][164][164][164]"
3800 DATA,
3900 DATA" [211][207][198][212][196][201][211][203] DISKETTES ARE DOUBLE DENSITY AND PUNCHED SO THAT THEY CAN BE
4000 [131]"USED ON BOTH SIDES.  (null)(null)ASC(null)STR$RIGHT$(null)(null) DISKETTES COME PACKED IN PLASTIC LIBRARY
4100 DATA"CASES, 10 TO A BOX, WITH WRITE PROTECT TABS AND LABELS. [160][212]HEY SELL FOR
4200 [131]"$1.60 EACH.  ATNT THAT PRICE WE REQUIRE THAT YOU ORDER A MINIMUM OF 50 OR
4300 DATA"A MULTIPLE OF 50.  [217]OU GET A FREE HEAD CLEANING DISK WITH EACH 50.",
4400 DATA"            [164][164][164][164][164][164]  50 AT $1.60 EACH = $ 80"
4500 DATA"            [164][164][164][164][164][164] 100 AT $1.60 EACH = $160"
4600 DATA"            [164][164][164][164][164][164] 150 AT $1.60 EACH = $240"
4700 DATA"            [164][164][164][164][164][164] 200 AT $1.60 EACH = $320"
4800 DATA" "
4900 DATA"[211][213][194]-[212][207][212][193][204]: $[164][164][164][164][164][164]"
5000 DATA,
5002 DATA"  [212]HE [210]ICH AND [198]AMOUS [196]ISK SERIES IS NOW AVAILABLE.  [197]ACH DISK COSTS"
5004 DATA"$16.95.  [215]HEN YOU ORDER, YOU WILL RECEIVE A DOUBLE-SIDED DISK FULL OF
5008 [131]"PROGRAMS WHICH ARE WRITTEN BY ONE PERSON.  (null)HESE PROGRAMS MAY DEAL
5010 DATA"WITH A CERTAIN THEME OR THEY MAY BE A COLLECTION OF DIFFERENT PROGRAMS.
5014 [131]"(null)ICH AND ASCAMOUS DISKS ARE A GREAT BUY.  (null)RDER YOURSELF SOME COPIES
5018 DATA"TODAY."
5020 DATA" "
5022 DATA"            [164][164][164][164][164][164] [211]IGN [208]AINTER     [164][164][164][164][164][164] [215]ARP +",
5025 DATA,"[211][213][194]-[212][207][212][193][204]: $[164][164][164][164][164][164]"
5026 DATA,
5028 DATA"[199][210][193][206][196] [212][207][212][193][204]: $[164][164][164][164][164][164]",
5100 DATA"              [164][164] [195]HECK    [164][164] [214][201][211][193]     [164][164] [205][193][211][212][197][210] [195][193][210][196]"
5200 DATA,
5300 DATA"[195]ARD #  :[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]         [197]XP DATE: [164][164] / [164][164] / [164][164]"
5400 DATA,,"END"
5500 PRINT"[147]"
5600 PRINT" [193] NEW ISSUE OF [204][207][193][196][211][212][193][210] IS PUBLISHED ":PRINT
5700 PRINT"EVERY MONTH.  [200]OWEVER, [204][207][193][196][211][212][193][210] DOES ":PRINT
5800 PRINT"NOT BECOME DATED MATERIAL.  [212]HE ":PRINT
5900 PRINT"PROGRAMS ON [204][207][193][196][211][212][193][210] HAVE PERMANENT":PRINT
6000 PRINT"VALUE.  [217]OU WILL WANT THE COMPLETE":PRINT
6100 PRINT"[204][207][193][196][211][212][193][210][160]COLLECTION.  [193]LL PAST ISSUES":PRINT
6200 PRINT"STARTING WITH NUMBER 1 ARE STILL":PRINT
6300 PRINT"AVAILABLE FOR $9.95 EACH.":PRINT
6400 PRINT" [207]RDER 3 OR MORE AND TAKE ONE DOLLAR":PRINT
6500 PRINT"OFF EACH ISSUE.  [207]RDER 6 OR MORE AND ":PRINT
6600 PRINT"TAKE TWO DOLLARS OFF EACH ISSUE.":PRINT
6700 PRINT"        <PRESS A KEY FOR MORE>"
6704 POKE198,0:WAIT198,1:GETZ$
6710 PRINT"[147]  [212]HE [210]ICH & [198]AMOUS [196]ISK SERIES IS NOW"
6715 PRINT:PRINT"AVAILABLE.  [197]ACH DISK COSTS $16.95."
6720 PRINT:PRINT"[210][160]&[160][198][160]DISKS ARE DOUBLE-SIDED DISKS FULL"
6725 PRINT:PRINT"OF PROGRAMS WRITTEN BY ONE PERSON.  [212]HE"
6730 PRINT:PRINT"PROGRAMS MAY HAVE A THEME, OR THEY MAY"
6735 PRINT:PRINT"BE A COLLECTION OF DIFFERENT PROGRAMS."
6740 PRINT:PRINT"[210]ICH & [198]AMOUS [196]ISKS ARE A GREAT BUY!"
6745 PRINT:PRINT"[207]RDER SOME TODAY."
6750 PRINT:PRINT"   [212][201][212][204][197][211][160][193][214][193][201][204][193][194][204][197]:"
6755 PRINT:PRINTSPC(12)"[215][193][210][208]+":PRINTSPC(12)"[211][201][199][206][160][208][193][201][206][212][197][210]"
6760 PRINT"        <PRESS A KEY FOR MORE>"
6800 POKE198,0:WAIT198,1:GETZ$
6900 PRINT"[147]"
7000 PRINT" [211][207][198][212][196][201][211][203] DISKETTES COME FULLY PACKAGED":PRINT
7100 PRINT"AND DOUBLE PUNCHED FOR USE ON BOTH ":PRINT
7200 PRINT"SIDES.  [211][207][198][212][196][201][211][203] DISKS SELL FOR $1.60":PRINT
7300 PRINT"EACH.  [193]T THIS PRICE WE REQUIRE THAT":PRINT
7400 PRINT"YOU ORDER A MINIMUM OF 50 OR A MULTIPLE":PRINT
7500 PRINT"OF 50.":PRINT
7510 PRINT"  [212]HE DISKS ARE PACKAGED IN PERMANENT":PRINT
7520 PRINT"PLASTIC LIBRARY CASES AND COME WITH A":PRINT
7530 PRINT"HEAD CLEANING DISK FOR EACH 50 ORDERED.":PRINT
7600 PRINT"  [214][201][211][193], [205][195], [205][207], AND CHECK ACCEPTED.":PRINT:PRINT
7700 PRINT"       <PRESS 'S' TO VIEW AGAIN>"
7800 POKE198,0:WAIT198,1:GETZ$:IFZ$="S"THEN5500
7900 PRINT"[147]LOAD"CHR$(34)"ORDER FORM"CHR$(34)",8":PRINT"RUN"
8000 POKE631,13:POKE632,13:POKE198,2:END